home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
bbsutils
/
bgfax120.arj
/
SOURCE.ARJ
/
FAXATREE.PAS
next >
Wrap
Pascal/Delphi Source File
|
1994-03-23
|
2KB
|
33 lines
{ this file is used for CREATING fax images }
const
whitea : array[0..104] of array[0..1] of word = (
(8,172),(6,56),(4,14),(4,1),(4,13),(4,3),(4,7),(4,15),(5,25),(5,5),(5,28),
(5,2),(6,4),(6,48),(6,11),(6,43),(6,21),(6,53),(7,114),(7,24),(7,8),
(7,116),(7,96),(7,16),(7,10),(7,106),(7,100),(7,18),(7,12),(8,64),(8,192),
(8,88),(8,216),(8,72),(8,200),(8,40),(8,168),(8,104),(8,232),(8,20),
(8,148),(8,84),(8,212),(8,52),(8,180),(8,32),(8,160),(8,80),(8,208),(8,74),
(8,202),(8,42),(8,170),(8,36),(8,164),(8,26),(8,154),(8,90),(8,218),(8,82),
(8,210),(8,76),(8,204),(8,44),(5,27),(5,9),(6,58),(7,118),(8,108),(8,236),
(8,38),(8,166),(8,22),(8,230),(9,102),(9,358),(9,150),(9,406),(9,86),
(9,342),(9,214),(9,470),(9,54),(9,310),(9,182),(9,438),(9,50),(9,306),
(9,178),(6,6),(9,434),(11,128),(11,384),(11,1408),(12,1152),(12,3200),
(12,640),(12,2688),(12,1664),(12,3712),(12,896),(12,2944),(12,1920),
(12,3968),(12,2048));
blacka : array[0..104] of array[0..1] of word = (
(10,944),(3,2),(2,3),(2,1),(3,6),(4,12),(4,4),(5,24),(6,40),(6,8),(7,16),
(7,80),(7,112),(8,32),(8,224),(9,48),(10,928),(10,96),(10,64),(11,1840),
(11,176),(11,432),(11,1888),(11,160),(11,1856),(11,192),(12,1328),
(12,3376),(12,816),(12,2864),(12,352),(12,2400),(12,1376),(12,3424),
(12,1200),(12,3248),(12,688),(12,2736),(12,1712),(12,3760),(12,864),
(12,2912),(12,1456),(12,3504),(12,672),(12,2720),(12,1696),(12,3744),
(12,608),(12,2656),(12,1184),(12,3232),(12,576),(12,3776),(12,448),
(12,3648),(12,320),(12,416),(12,2464),(12,3392),(12,832),(12,1440),
(12,1632),(12,3680),(10,960),(12,304),(12,2352),(12,3488),(12,3264),
(12,704),(12,2752),(13,1728),(13,5824),(13,2624),(13,6720),(13,1600),
(13,5696),(13,2496),(13,6592),(13,1472),(13,5568),(13,3520),(13,7616),
(13,2368),(13,6464),(13,1344),(13,5440),(13,2880),(13,6976),(13,1216),
(13,5312),(11,128),(11,384),(11,1408),(12,1152),(12,3200),(12,640),
(12,2688),(12,1664),(12,3712),(12,896),(12,2944),(12,1920),(12,3968),
(12,2048));